home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
giochi
/
bould235.lha
/
BoulderD舖h
/
Install
/
BoulderD舖h.install
next >
Wrap
Text File
|
1995-09-26
|
9KB
|
307 lines
; $VER: BoulderDäsh.install 1.00 (11.9.95)
; Script to install BoulderDäsh
;
(complete 0)
; Install script for BoulderDäsh (Workbench 2.0 or higher)
(set old_level @user-level)
(set SourceRoot "/")
;=============================================================================
; German strings
(if (= @language "deutsch")
(
(set default_lang 2)
(set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
(set #BoulderDäsh-InstallMsg
(cat "\n\BoulderDäsh Installationsskript.\n"
"Diese Skript installiert BoulderDäsh auf Ihrem Amiga.\n\n"
"Lesen Sie das Anleitungs-File für weitere Informationen\n"
" über den Vertrieb von BoulderDäsh.\n\n"
"BoulderDäsh © 1995 Guido Mersmann\n"
"All Rechte reserviert."
))
(set #BoulderDäsh-Where
(cat "Wo möchten Sie BoulderDäsh installieren ?\n"
"(Ein Verzeichnis wird angelegt)"
))
(set #BoulderDäsh-Update
(cat "\nEin BoulderDäsh-Verzeichnis existiert im ausgewählen"
" Verzeichnis. Wenn Sie fortfahren,"
" bestätigen Sie, daß Sie die alte BoulderDäsh-Installation"
" mit der neuesten Version updaten wollen.\n"
"Verschiedene BoulderDäsh-Dateien (z.B Prefs) werden überschrieben!"
))
(set #BoulderDäsh-copying-Main "\nKopiere BoulderDäsh nach BoulderDäsh/...")
(set #BoulderDäsh-copying-Catalogs "\nKopiere Kataloge nach ...BoulderDäsh/Locale/...")
(set #BoulderDäsh-copying-Caves "\nKopiere Level nach ...BoulderDäsh/Caves/...")
(set #BoulderDäsh-copying-Games "\nKopiere Spiele nach ...BoulderDäsh/Games/...")
(set #BoulderDäsh-copying-Scores "\nKopiere Scores nach ...BoulderDäsh/Scores/...")
(set #BoulderDäsh-copying-Graphics "\nKopiere Grafiken nach ...BoulderDäsh/Graphics/...")
(set #BoulderDäsh-Language "\nWelche Sprachen sollen installiert werden ?")
(set #BoulderDäsh-Language-help
(cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
" arbeiten. Um Plattenkapazität zu sparen können Sie"
" nur die Sprachen anwählen, die sie benötigen"
" Haken Sie also einfach die Sprachen ab, die Sie"
" Ihrem System zugänglich machen wollen."
@askoptions-help
))
(set #BoulderDäsh-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
(set #BoulderDäsh-Exit "\nBoulderDäsh installaliert !!")
))
;=============================================================================
; English strings
(if (<> @language "deutsch")
(
(set default_lang 4)
(set #bad-kick "You must have at least Workbench 2.0+")
(set #BoulderDäsh-InstallMsg
(cat "\n\BoulderDäsh installation script.\n"
"This script installs BoulderDäsh on your Amiga.\n\n"
"Read the DOK-file for more information\n"
" on the distribution of BoulderDäsh.\n\n"
"BoulderDäsh © 1995 Guido Mersmann\n"
"All rights reserved."
))
(set #BoulderDäsh-Where
(cat "Where would you like to install BoulderDäsh ?\n"
"(A drawer will be created)"
))
(set #BoulderDäsh-Update
(cat "\nA BoulderDäsh drawer does already exist in the selected "
" directory. By selecting \"Proceed\", you"
" indicate that you want to update the BoulderDäsh"
" installation with the most recent version.\n"
"Several BoulderDäsh specific files will be overwritten!"
))
(set #BoulderDäsh-copying-Main "Copying boulderDäsh to ...BoulderDäsh/...")
(set #BoulderDäsh_copying-Catalogs "Copying catalogs to ...BoulderDäsh/Locale/...")
(set #BoulderDäsh-copying-Caves "\nCopying caves to ...BoulderDäsh/Caves/...")
(set #BoulderDäsh-copying-Games "\nCopying games to ...BoulderDäsh/Games/...")
(set #BoulderDäsh-copying-Scores "\nCopying scores to ...BoulderDäsh/Scores/...")
(set #BoulderDäsh-copying-Graphics "\nCopying graphics to ...BoulderDäsh/Graphics/...")
(set #BoulderDäsh-Language "\nWhich languages should be installed ?")
(set #BoulderDäsh-Language-help
(cat "\nThe Amiga can be operated in many different"
" languages."
"To reduce the amount of space consumed by the"
" language files, you can select to have only the"
" files of specific languages copied.\n\n"
"Simply check the boxes of the languages you wish"
" to have available on your system.\n\n"
@askoptions-help
))
(set #BoulderDäsh-Docs "\nWhich text files should be installed in \"BoulderDäsh:Docs\" ?")
(set #BoulderDäsh-Exit "\nBoulderDäsh installed !!")
))
;=============================================================================
(set @default-dest "")
; erst sichergehen, daß Workbench 37 drinn ist
(if (< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
))
(message #install-msg)
(welcome)
(set @default-dest "SYS:")
(set BoulderDäshdestdir
(tackon
(askdir
(prompt #BoulderDäsh-Where)
(help @askdir-help)
(default @default-dest)
)
"BoulderDäsh"
)
)
(
(makedir BoulderDäshdestdir
(help @makedir-help)
(infos)
)
)
(set @default-dest BoulderDäshdestdir)
;***** Delete old Data and Prefs
(delete (tackon BoulderDäshdestdir "BoulderDäsh.prefs"))
;***** Create dirs
(complete 20)
(makedir (tackon BoulderDäshdestdir "Catalogs")(infos))
(makedir (tackon BoulderDäshdestdir "Games")(infos))
(makedir (tackon BoulderDäshdestdir "Scores")(infos))
(makedir (tackon BoulderDäshdestdir "Caves")(infos))
(makedir (tackon BoulderDäshdestdir "Graphics")(infos))
(makedir (tackon BoulderDäshdestdir "Docs")(infos))
(makedir (tackon BoulderDäshdestdir "Docs/Deutsch")(infos))
;***** BoulderDäsh_Main
(complete 30)
(copyfiles
(prompt "\n" #BoulderDäsh-copying-Main)
(source (tackon SourceRoot "BoulderDäsh")(infos))
(dest BoulderDäshdestdir)
(help @copyfiles-help)
(optional <force>)
(infos)
)
;***** Games
(complete 40)
(copyfiles
(prompt "\n" #BoulderDäsh-copying-Games)
(source (tackon SourceRoot "games/"))
(dest (tackon BoulderDäshdestdir "games/"))
(help @copyfiles-help)
(optional <force>)
(all)
; (infos)
)
;***** Scores
(complete 50)
(copyfiles
(prompt "\n" #BoulderDäsh-copying-Scores)
(source (tackon SourceRoot "Scores/"))
(dest (tackon BoulderDäshdestdir "Scores/"))
(help @copyfiles-help)
(optional <force>)
(all)
; (infos)
)
;***** Caves
(complete 60)
(copyfiles
(prompt "\n" #BoulderDäsh-copying-Caves)
(source (tackon SourceRoot "Caves"))
(dest (tackon BoulderDäshdestdir "Caves"))
(help @copyfiles-help)
(optional <force>)
(all)
; (infos)
)
;***** Graphics
(complete 70)
(copyfiles
(prompt "\n" #BoulderDäsh-copying-Graphics)
(source (tackon SourceRoot "graphics/"))
(dest (tackon BoulderDäshdestdir "graphics/"))
(help @copyfiles-help)
(optional <force>)
(all)
; (infos)
)
;***** Catalogs
(complete 80)
(set lang (askoptions
(prompt #BoulderDäsh-Language)
(help #BoulderDäsh-Language-help)
(choices
"English"
"Deutsch")
(default -1)
)
)
(set n 0)
(while (< n 2)
(set language (select n "english" "deutsch"))
(
(if (IN lang n)
(
(makedir (cat (tackon BoulderDäshdestdir "Catalogs/") language))
(copyfiles
(source (cat (tackon SourceRoot "Catalogs/") language))
(dest (cat (tackon BoulderDäshdestdir "Catalogs/") language))
(help @copyfiles-help)
(all)
)
)
)
)
(set n (+ n 1))
)
;***** DOCS
(complete 90)
(set docs (askoptions
(prompt #BoulderDäsh-Docs)
(help @askoptions-help)
(choices
"Guide"
"ASCII"
)
(default -1)
)
)
(set n 0)
(while (< n 2)
(set documents (select n "BoulderDäsh.Guide" "BoulderDäsh.Dok"))
(
(if (IN docs n)
(
(copyfiles
(source (cat (tackon SourceRoot "Docs/Deutsch/") documents))
(dest (tackon BoulderDäshdestdir "Docs/Deutsch/"))
(help @copyfiles-help)
; (infos)
)
)
)
)
(set n (+ n 1))
)
;***** KEYFILE
(complete 91)
;***** Startup-Sequence
(complete 95)
;***** Prefs
;***** Finished
(complete 100)
(exit #BoulderDäsh-exit)